apurado:=Apurado new.
ciro:=Persona new.
ciro inicializacionrapida.
ciro tipo:apurado.
verde:=Micro new.
verde InicializoEspacioParados: 2.
verde LugaresDisponiblesParados.
verde InicializoEspacioSentados: 0. 
verde LugaresDisponiblesSentados.
verde InicializoEspaciosLibres.
verde LugaresLibres.2.
verde LugaresOcupados.0.
ciro subirse: verde.
verde LugaresDisponiblesParados.
verde LugaresDisponiblesSentados .
verde LugaresLibres.
verde LugaresOcupados.
rojo:=Micro new.
rojo InicializoEspacioParados: 3.
rojo LugaresDisponiblesParados.3.
rojo  InicializoEspacioSentados: 5. 
rojo LugaresDisponiblesSentados.5.
 rojo InicializoEspaciosLibres.
rojo LugaresLibres.8.
ciro subirse:rojo.'la persona no cumple las condiciones para subirse al micro'.
rojo metros2:150.
miguel:=Persona new.
fiaca:=Fiaca new.
miguel tipo:fiaca.
miguel acepta:rojo.true.
miguel subirse:rojo.
ciro pocision.'parado'.
miguel pocision.'sentado'










